program selectionsort;
var
 a, b : integer;
 c, d : real;

function minha_funcao (x,y:integer; u, v:real) : integer;
begin
	a := 2 + 2;
	b := a + 2;
end;

procedure meu_procedimento ();
begin
	b := 3;
end;

begin
	a:= a + 1;
end.